(define (uniq l)
  (cond ((null? l) '())
	((null? (cdr l)) l)
	((equal? (car l) (cadr l)) (uniq (cdr l)))
	(else (cons (car l) (uniq (cdr l))))))
